home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Extra Heft 12
/
Extra Heft12.bin
/
input64
/
11_86.d64
/
midi demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-08-17
|
3KB
|
72 lines
5 :SYS4224
10 GOTO1000
20 PRINTCHR$(8)CHR$(14)CHR$(144)CHR$(147)
30 POKE53280,8:POKE53281,8
40 PRINT" [205] [201] [196] [201] - [205] O N I T O R"
50 PRINT" ======================="
60 PRINT:PRINT"[196]IESES [208]ROGRAMM DIENT ZUR [213]EBERPRUEFUNG"
70 PRINT"DES [205][201][196][201]-[201]NTERFACE AUF DER [195]64-[215]ANDLER-"
80 PRINT"KARTE."
90 PRINT"[215]ENN ALLES IN [207]RDNUNG IST, WERDEN ALLE"
100 PRINT"EMPFANGENEN [196]ATEN IN DER [198]ORM"
110 PRINT:PRINT"[211]TATUS [196]ATENBYTE1 [196]ATENBYTE2..."
120 PRINT:PRINT"ALS [200]EX-[218]AHLEN ANGEZEIGT. [204]EDIGLICH DIE"
130 PRINT"'[211]YSTEM-[210]EALTIME'-[211]TATUSBYTES BEKOMMEN"
140 PRINT"KEINE EIGENE [218]EILE."
150 PRINT:PRINT"[196]AS [208]ROGRAMM KANN JEDERZEIT MIT [210][197][212][213][210][206]"
160 PRINT"ABGEBROCHEN WERDEN."
170 PRINT" >>>[215]EITER MIT [212]ASTE<<<";
180 POKE198,0:WAIT198,1:GETA$
200 PRINT"[147][211][212] [196]1 [196]2 [196]3 [196]4 [196]5 [196]6 [196]7 [196]8[146]";
210 SYS49152
220 GETA$:IFA$=CHR$(13)THEN1000
230 GOTO200
500 PRINTCHR$(8)CHR$(14)CHR$(144)CHR$(147)
510 POKE53280,8:POKE53281,8
520 PRINT" [205] [201] [196] [201] - [203] E Y B O A R D"
530 PRINT" ========================="
540 PRINT:PRINT"[211]IE KOENNEN JETZT DIE [212]ASTATUR [201]HRES"
550 PRINT"[210]ECHNERS ALS MONOPHONES [205][201][196][201]-'[205]ASTER'-"
560 PRINT"[203]EYBOARD BENUTZEN."
570 PRINT""
580 PRINT"CTRL[146] [221] [146] [146] [221] [146] [146] [146] [221]";
590 PRINT" [146] [146] [221] [146] [146] [146]"
600 PRINT" [221] [146] [146] [221] [146] [146] [146] [221]";
610 PRINT" [146] [146] [221] [146] [146] C[146]"
620 PRINT"PITCH [221] 2[146] 3[146] [221] 5[146] 6[146] 7[146] [221]";
630 PRINT" 9[146] 0[146] [221] -[146] \[146] H[146]"
640 PRINT" [221]Q[221]W[221]E[221]R[221]T[221]Y[221]U[221]I[221]O[221]P[221]@[221]*[221]^[221]"
650 PRINT"SHIFT[146] [173][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]"
660 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
670 PRINT:PRINT"[193]UF WELCHEN [203]ANAL IST [201]HR [211]YNTHESIZER"
680 PRINT"EINGESTELLT? 1 (+/-/[210][197][212][213][210][206])[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
685 CH=1
690 POKE204,0
700 POKE198,0:WAIT198,1:GETA$
705 IFPEEK(207)THEN705
710 POKE204,1
720 IFA$=CHR$(13)THEN780
730 IFA$="+"THENCH=CH+1:IFCH>16THENCH=1
740 IFA$="-"THENCH=CH-1:IFCH<1THENCH=16
750 PRINT"[157]"CH"[157] ";
760 PRINT"[157][157]";:IFCH>9THENPRINT"[157]";
770 GOTO690
780 PRINT:PRINT"[197]NDE MIT [210][197][212][213][210][206]"
790 POKE780,CH-1:SYS49155
1000 PRINTCHR$(8)CHR$(14)CHR$(144)CHR$(147)
1010 POKE53280,8:POKE53281,8
1020 PRINT" [205] [201] [196] [201] - [196] E M O"
1030 PRINT" ================="
1040 PRINT:PRINT"[205]IT DIESEN ZWEI [208]ROGRAMMEN KOENNEN [211]IE"
1050 PRINT"[201]HRE [205][201][196][201]-[211]CHNITTSTELLE AUSPROBIEREN:"
1060 PRINT:PRINT:PRINT"1.) [196]ER [205][201][196][201]-[205]ONITOR ZUM [212]ESTEN DES"
1070 PRINT" [205][201][196][201]-[197]INGANGS."
1080 PRINT:PRINT"2.) [196]AS [205][201][196][201]-[203]EYBOARD FUER DEN [205][201][196][201]-"
1090 PRINT" [193]USGANG."
1100 PRINT" [211]IE WUENSCHEN BITTE ?"
1110 PRINT:PRINT" ([196]RUECKEN [211]IE 1[146] ODER 2[146])"
1120 POKE198,0:WAIT198,1:GETA$
1130 IFA$="1"THEN20
1140 IFA$="2"THEN500
1150 GOTO1120